home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0064_File Exists using pChar.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  430b  |  28 lines
  1.  
  2. Uses Crt,Dos,Strings;
  3.  
  4. VAR
  5.     filename : pChar;
  6.     fname    : String;
  7.  
  8.   { test to see if file exists }
  9.   function FileExists(FileName:pchar):boolean;
  10.   inline(
  11.     $5A/
  12.     $58/
  13.     $1E/
  14.     $8E/$D8/
  15.     $B8/$00/$43/
  16.     $CD/$21/
  17.     $1F/
  18.     $72/$08/
  19.     $B8/$01/$00/
  20.     $F6/$C1/$10/
  21.     $74/$02/
  22.     $31/$C0);
  23.  
  24. BEGIN
  25.   fname := Paramstr(1);
  26.   WriteLn(FileExists(strPCopy(Filename,fname)));
  27. END.
  28.